■I 



SEITE 



1 



* GENERAL AUTOMATION* INC X ALL RIGHTS RESERVED 

************************************************** 
* 



» 29 



1 
2 
3 

4 * PROGRAM NAME FpH-24 

5 * ' 

6 * MODEL NUMBER 8F024 

7 * 

8 * PURPOSE FORTRAN PMASE*24 

9 * 

10 * PROGRAMMER PICK KALLMANN 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCO BY RfcASON FOR CHANGE 

16 * 

17 * 01 11/16/70 NONE RPH INITIAL- RELEASE 

18 * 

19 *************** *************************** ******** 

20 ************************************************** 

21 HDNG MPX FORTRAN ** LIST' SYMBOLS 

22 ************************************************** 

23 *STATUS-VERSION 1, MODIFICATION 

24 * 

25 *FUNCTlON/OPERAT!QN 

26 * * LISTS THE FEATURES SUHPgRTEp 0Y THE PROGRAM 
g7 # AS INDICATED IN THE FORTRAN COMMUNICATIONS: 
28 * AREA WORD CCWDi 



* ARfcA WORU UUWOt 

* * LISTS THE SYSTEM LIBRARY SUBROUTINES USED 
30 * BY THE PROGRAM IF RgUUESTEp, 

* * LISTS SUBPROGRAM NAMES FOUNp JN THE SYMBOL! 



• 31 * * LISTS SUBPROGRAM NAMES FOUNp I 

32 * TABLE, IF REQUESTED, 

33 * 

34 *ENTRY POINTS- „ .„„ „ „,, 

35 * * NEQ - PHASE 24 IS LOAUED BY PHASE 23 VIA 

36 * ROLRX, EXECUTION IS bEQUN AT LOCATION 

37 * LABLED NEQ, 
w 38 *JNPUT- 

39 * * THE STATEMENT STRING 

40 * * THE SYMBOL TABLE 

41 * * THE FORTRAN COMMUNICATIONS AREA 

42 * 

43 *OUTPUT- 

44 * * THE STATEMENT STRING 

45 * * THE SYMBOL TABLE 

46 * * THE FORTRAN COMMUNICATIONS AREA 

47 * 

48 *EXTERNAL REFERENCES 

49 * * SUBROUTINES 

50 * ROLRX 

51 * * OTHER FORTRAN PHASES 

52 * PHASE 19 OR 30 OR NEITHER 

53 * 

54 *EXITS- 

55 * * NORMAL 



56 * 

57 * 

58 * * ERRORS* 

59 * OVERLAP- 



AL<* 

PHASE 25 IS LOADEU VIA A CALL TO THE 

ROLRX ROUTINE ANP'CQNTRQL PASSED TO IT, 



SEJTE 



60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 



79 

80 
81 

83 
84 
85 
86 
87 
88 
89 

90 

91 

02 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

112 
113 
114 
115 
116 
117 
118 
119 



* IF AN OVERLAP HAS BEEN DETECTED IN A 

* PREVIOUS PHASE THEN AN JMMEDIATE EXJT 

* TAKES PLACE, OTHERWISE, NO OVERLAP 

* ERROR IS DETECTED, 

* SYNTAX* 

* NO SYNTAX ERRORS ARE DETECTED 



♦TABLES/WORK AREAS 

* * THE STATEMENT STRING 

* * THE SYMBOL TABLE 

* * THE FORTRAN CgMMUNjGAl 

* * BUF+4Q, A 40 WORD MESS 

* OUTPUTTINQ AREA, 
* 
*ATTRJBUTES-N/A 

* 

♦NOTES-NONE 

**************************** 
ABS ^ ? c«*£w 



IONS ARE* 

AGE BUILDING ANP 



********************** 



* 
* 

* 



SYSTEM AND FORTRAN EQUATES 



MEMRY EQU 
PHSIZ EQU 
OVERL EQU 
FCOM EQU 
PHNTB EQU 
RQLRX EQU 
AREA EQU 
PRINT EQU 



4*320 

MEMRY-PHSIZ 

OVERL-22 

FCOM-56 

PHNTB-50 

OVERL+3*32QHU 

AREA*! 



MAXIMUM CORE SIZE 
MAXIMUM PHASE SIZE 
PHAStS 2-29 START 
FOKTRAN COMM, TABLEi 
PHASE TABLE 
JNTEHPHASE CALL 
PRINT DATA ADDRESS; 
PRJNT ENTRANCE 



* 
* 
* 

SOFS 

EOFS 

SOFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

* 
* 
FNAME 

SORF 
CCWD 

* 
* 
* 
* 
* 
* 
* 
# 
* 
IOCS 



FORTRAN COMMUNICATIONS AREA 



ORG 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



BSS 
BSS 
BSS 
BSS 



FCOM 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1 

1 
1 
1 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



BSS 





FORTRAN i 




St'AHT of 




ENP'OF S 




SfAKT of 




LENUTH U 




SUE QF 




SIZE QF 




END" OF S 




RELATjVfc 




SIZE QP 




ERROR Fi. 




8IT15 




BIT 14 




prO^r^m 




2ND~WqR|j 




SUBK {') 




CONTROL 


15 


TRANSFER 


14 


ARITHMET 


13 


EXTtNDEU 


12 


LIST SYM 


11 


LIST SUB 


10 


LIST SOU 


9 


QNE~WQRU 


8 


PUNgH 


7 


NONPROCE 




JOCS CON 



COMM AREA 

STRING 
THING 

SYMBOL TABLE 
F PROGRAM 

WgRK AREA (VARIES) 
CONSTANTS AREA 
YMBOL TABLE 

ENTRY POINT 
COMMON 
AG 

VERL A P ERROR 
THER ERROR 

NAME 
OF PROG NAME 

OR FUNC <♦) 

CARD WORD 

TRACE 
IQ TRACE 

PRECISION 
BOL TABLE 
PROGRAM NAMES 
RgE PROGRAM 

JNTEGERS 

S5 PROGRAM 
TKOL CARD WORD 



* 



SEITE 



120 * 

121 * SEE PHASE ONE FOR BIT PATTERNS 

122 * 

123 DFCNT BSS 1 DEFINE FlL,E COUNT 

124 * 

125 LCOMN BSS 2 INSkEL COMMON SJZE 

127 ICCER BSS 2 JOCb CONT CD ERROR WORD 

129 * END OF FURTRAN COMMUNICATION 

130 * AREA 

131 •***********#************************************* 

132 * 

133 ORG OVERU 

134 NEQ BSC U ENT OR BEGIN PHASE 

135 * 

136 * 

137 WDCNT DC *•* WORU gOUNT 

138 BUF DC /4000 PRINT AKEA 

139 DC /4000 EBC BLANKS 

140 DC /4000 

141 DC /4000 

142 ENT LD L ERROR 

143 BSC L EXIT,Z BK TO EXIT IF OVERLAP ER 

144 * INITIALIZATION PROGRAM IS EXECUTED. 

145 * AT LOCATIONS THAT LATER SERVE AS 

146 * PRINT AREA 

147 * 

148 * 

149 * INITIALIZE IRANSFfcRVECTOR 

ill * LDX L3 Z LD XR 5 WITH POINTER VAL 

152 * 

153 * 

154 * LIST FEATURES SUPPORTED 

155 * 

ll 7 * ANY FEATURES bUpPURTED 

158 * 

159 LD IOCS LD IOCS WgRD 

160 BSC Z SKJH JF ALL BJT5 OFF 

161 MDX BUF4Q ELSt GO TQ BUF*40 

162 LD L CCWD LD CONT CARD WD 

163 AND 3 H0147-Z COMPARE BjTS 7#9, 13,16,15 
£64 BSC L L1035, - BRANCH IF NO FEATURES S^PP 
!65 MDX BUF40 ELSt GO TO BUF*4Q 

!67 * IF ANy FEATJRfcS SUPPORTED 

16 8 * PRINT TEXT -FEATURES SUPPORTED- 

169 * 

170 ORG BUF*4Q 

171 * 

172 BUF40 BSI L P8LNK GO BLANK BUFFER AREA 

173 BSI L HTEST GO UNPACK AND PRINT MSG 
J 7 4 DC 9 W0R y COUNT OF MSG 

175 EBC .FEATURES SUPPQRTfcD, 

176 * 

!77 * PRINT NON'PROgESS 

178 * IF APPLICABLE 

179 * 



SEITE 4 



180 LD CCWD LOAU QONTROl. CARD WORD 

181 SLA 7 PUT BfT 7 IN SIGN 

182 BSC I K1020," BRANCH IF PROCESS 

183 BSI L HJEST ELSfc GO UNPACK AND PRINT 

184 DC 6 WORU COUNT OF MSG 

185 EBC , NONPROCESS L 

186 * 

187 * PRINT .TRANSFfcR TRAQE, 

188 * IF APPLICABLE" 

189 * 

190 K1020 LD CQWD LOAU CONTROL CARD WP 

191 SLA 15 PUT BJT 15 JN SJGN 

192 BSC L K1021,. BR JF Nu TRANSFER TRACE 

193 BSI L HTEST ELSfc GO UNPACK AND PRINT 

194 DC 8 WORD COUNT OF M$Q 

195 EBC , TRANSFER TRACE i 

196 * 

197 * PRINT .ARITHMETIC TRACE, 

198 * IF APPLICABLE 

199 * 

200 K1021 LD L CCWD LOAU CONTHOL CARD WP 

201 SLA 14 PUT'BJT 14 JN SJGN 

202 BSC L K1031 # - BR |F NO ARITHMETIC TRACE 

203 BSI L HTEST ELSfc GO UNPACK AND PRINT' 

204 DC 9 WORU C°UNT OF MSG 

205 EBC . ARITHMETIC T.RACE , 

206 * 

207 * PRINT ,0NE WOKD INTEGEKS, 

208 * IF APPLICABLE" 

210 K1031 LD L CCWD LOAU CONTROL CARD WP 
2H SLA 9 PUT B|T 9 IN SIGN 

212 BSC L K1051,- BR |F NU gNE WORD INTEGERS 

213 BSI L HTEST ELSfc GO UNPACK AND RRJNT 

214 DC 9 WORU COUNT OF MSG 

215 EBC , ONE WORD INTEGERS, 

216 * 

217 * PRINT .EXTENDfcD PRECISION, 

218 * IF APPLICABLE 

219 * 

220 K1051 LD L CCWD LOAU CONTROL CARD WP 

221 SLA 13 PUT BJT 13 J N SJGN 

222 BSC L L103Q,- BR IF NUT EXTENDED RREC 

223 BSI HTEST ELSfc GO UNPACK AND RRJNT 

224 DC 10 WORU COUNT OF MSG 

225 EBC . EXTENDED PRfcCjSjQN , 

226 * 

227 * CHANGE SYSTEM SyBR , »NAME»L I ST SO THA 

228 * APPLICABLE NAMES BEGIN WITH ,E, 

229 * RATHER THAN WjTH ,F, 

230 * 

231 LDX 1 FAXIX.TABSS*Z GET TABLE LENGTH 

232 L1022 BSI 3 FTOE-Z CHANGE NEXT NAME 

233 MDX 1 -2 MQVb TABLE ENTRY POINTER* 

234 MDX L1022 BR JF XK1 NOT ZERO 

235 * 

236 * 

237 * CHANGE SECOND CHAR JN TRACE ROUTINE 

238 * NAMES FROM F JNTO E 

239 * 



SEITE 5 

240 ID 3 H0004,Z 10 A HEX 4 CONST 

241 STO L DJFF PUT IT IN DJFF 

242 LDX 1 FARI-TABSS*2 HUT TABLE COUNT JN XRl 

243 BSI 3 FTOE-Z GO OHaNGE F TO E 

244 LDX 1 FARIX-TABSS*2'PUT TABLE COUNT IN XRl 

245 BSI 3 FTOE"Z G0 CMaNUE F TO E 

246 LDX 1 FJF-TABSS*2"P0T TaBL,E COUNT IfJ XRl: 

247 BSI 3 FTOE-Z GO CHANGE F TOE 

248 * 

249 * TEST FOR IOCS 

250 U030 ID L IOCS LOAU jOqS WORD 

251 L1035 ID L CCWD LOAU CONTROL CARD WORD 

252 "' SLA 11 PUT'BIT U JN SJGN 

253 BSC t 12011," BRANCH IF NO LISTING 

254 * 

255 # CHECK IOCS WOHD AND FLAG APPROPRIATE 

256 * SUBROUTINE NaME TO BE PRINTED 

257 * 

258 LD L ICCER EXAMINE UTAPE/UPJSK ERR WD 

259 BSC L L2011,Z BR UUT IF ERROR CONID EXJST 

260 LD L ZERO FORuE Nu J/O CALL LIST 

261 SRT 14 PUT"BITS 2 THRU 15 JN Q 

262 BSI L UTOY,E GO CHENfcE U'TO Y IF UDISK 

263 LDX 2 6 SET"XR2 TO 6 

264 SLT 2 RETKlEVfc PLOTTER BIT 

265 SLA 15 ANDTEST JF PLOTTER IS 

266 BSC L OTHS#*- SPECIFIED BR OUT IF NOT 

267 MDX EXTPT BR aRqUND ROUTINE/CONTIMUE 

268 * 

269 UTOY DC *»* LINK ADUR WORD 

270 STX 1 XR1SV SAVfe XRl HERE 

271 LDX LI UCOMP-UREO+2 WET A TABLE COUNT 

272 UTOYL LD LI URED-2 GET A TABLE ENTRY 

273 A H04QQ CHANGE THE U TO A Y 

274 STO LI URED-2 PUT IT «ACK IN TABU 

275 MDX 1 -2 * 0Vfc THt POINTER 

276 MDX UTOYL LOOP gACK 

277 # UPON FALL THROUGH 

278 LDX LI UI0I«UFI0*2*LUAP ANOTHER TABLE LEMGT 

279 LUTOY LD LI UFI0-2 GET A TABLE ENTRY 

280 A H04Q0 CHANGE THE U TO Y 

281 STO LI UFI0-2 PLAUE IT BACK IN THE TABLE 

282 MDX 1 -2 MOVb THE POINTER 

283 MDX LUTOY LOOP BACK 

284 LDX LI *** RESTORE XRl UPON COHPLETIO 

285 XR1SV EQU *•! XR1*SaVED THERE 

286 BSC I UTOY EXIT UTUY TO CALLING POJNT 

287 * 

288 H0400 DC /Q400 CONSTANT CHANGES U TO Y 

289 * 

290 ************************************************** 

291 * SUBROUTINE 

292 * TAG A SYSTEM SUBROUTINE NAME IN 

293 * LIST BY SETTING LEFTMOST BIT ON 

294 * 

295 EXTPT LDX LI TABLL SET XRl TQ TABLE ADDR 
?96 LD L CCWD GET CQNT gARD WORD RECORD 

297 SLA 13 PUT BjTl3 IN SJGN 

298 BSC - SKIK JF EXTENDED PRECISION 

299 MDX 1 2 ELSfc MOVE TABLE POINTER 



SEITE 6 

300 LD X UOAU TABLE WORD TO ACC 

301 OR 3 H800Q-Z FLAW jT TyRN BIT ON 

302 STO 1 RETURN WORD TO TABLE 

303 OTHS SLT 6 PUTS BITS 4 THRU 9 IN ACC 

304 LDX LI TABLM-2 PUT"AN ADpR IN XR1 

305 * 

306 * THIS ROUTINE ►LAGS J/O AND CONVERSJO 

307 * ROUTINE NAMES'WHlCH WJLL BE CALLED 

308 * BY THE LOADER 

309 * 

310 OTHR MDX 1 2 MQVfc TABLE ENTRY POINTER: 

311 SLA 16 ZERU THE ACC 

312 SLT 1 PUT A BJT OF Q JN ACC 

313 BSC L CKND, • BRANCH IF BIT W AS OFF 

314 LD U ELSE ID CITABLE ADDR) 

315 OR 3 H800Q-Z TURN BIT £ERO ON 

316 STO II RESTORE THE WORD 

317 LD II 1 LP £<NEXT TABLE ENTRY) 

318 BSC Z SKIP }F ZERO 

319 OR 3 HB000-Z ELSE TURN BJl ZERO ON 

320 STO II 1 RESTORE THE *ORD 

321 CKND MDX 2 -1 *OVfc TABLE POINTER PACK 

322 MDX OTHR LOOP BACK UNTIL XR2 FLIPS 

323 * 

324 LDX 11 SOFST INITIALIZE SYM ,TAB f FOI NTER 

325 STX LI S TP PUT'ApDK OF SYM TAB HER=! 

326 * 

327 * BRANCH TO PROGRAM AREA 

328 * OUTSIDE THE PRINT AREA 

329 * 

330 BSC L H041 

331 * 

332 * UNPACK AND PRINT HEADER 

333 HTEST DC *•* LINK ADDR WORD 

334 LD I HTEST LP CONTENTS OF ADDR 

335 STO L WDCNT PUT'THEH |N WDCNT 

336 STO INC ALSU JN HERE 

337 LD HTEST RELUAD THE ADDR 

338 A 3 ONE-Z INCASE JT BY ONE 

339 STO HTES2 1 PUT MQD ADDR BEHIND HTES2 

340 A INC ADD W&CNT TO HTEST*! 

341 STO L XTEST 1 PUT HEADER LENGTH If.! HERE 

342 SLT 32 ZERU ACC AND Q 

343 LDX 3 ZERU XR3 

344 LDX 12 WDCNT LD THE WD COUNT JNTO XRJ: 

345 HTES2 LD L *«* LD A PACKED MSG WORD 

346 SRT 8 PUT ONE PACKED CHAR IN Q< 

347 SLA 8 LEFT gUbTjFY OTHER CHAR 

348 STO L3 BJF STOKE CHAR IN BUF STRJN3> 

349 SLT 16 QET'OTHER CHAR BACK IN 3 

350 STO L3 BUF-1 STOKE IT JN NEXT BUF LOC< 

351 MDX 3 2 INCHEASE &UF STRING PTR 

352 MDX L HTES8 1,1 JNChEaSE PACKED WD PTR 

353 MDX 2 -1 DECREMENT WORD COUNT 

354 MDX HTES2 LOOP BACK UNTIL XR2 FLIPS 

355 LDX L3 Z RESTORE XR3 TO TBL PTR ML 

356 LD 3 PAPIN-Z GET"STANT ADDR OF BUF 

357 STO L AREA PUT IT JN AREA 

358 BSI L PRINT GO KRJNT THE MSG 

359 BSI L BLKPA GO HUT ESQ BLANKS IP BUT; 



SEITE 



360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 
403 
4Q4 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 

417 
418 
419 



XTEST BSC 
INC DC 



*•*- 



*«.* 



AND RETURN TO CALL PT 
MSG WpCNT STORED HERE 



************************************************** 

* .TRANSFER VECTOR, SUBROUTINES FOLLPW 

************************************************** 

* 
* 
* 
* 
* 



SUBROUTINE 

GET SYMBOL, TABU JD»WQND 



GETST DC 
AND 
STO 
LD 

S 
S 
S 

A 

STO 
QETSl LD 
BSC 

* 

* 

* 

* 

* 

* 

* 

* 

DIFF 

FTOE 



L 
I 



*** LINK aDUR WORD 

HQ7FF-Z SAVE QNIV BJTS 5 THRU 13! 

GETS1 1 ENTHV NuM OF SYH TBL ENTRY 

SQFST LOAD ADDR OF SYM TBU 

GETS1 1 FOREACH ENTRY THERE AR£i 

GETS! 1 3 WuRpS THUS 3 TIMES THSi 

GETS1 1 ENTHY NUM GETS THE ADDR 

3 ADD" 3 Tg GET 1ST WD 

GETS1 1 SfO THE SYM TBU ENT ADDR: 

*«* IN HERE 

GETST RETURN THRU LINK WD ADDR. 



SUBROUTINE 

CHANGE ,F. IN FjRST CHARACTER OF 
SUBROUTINE NAME INTQ ,E, 
OR E,F INTO V,W 



DC 
DC 
LD 
S 

STO 
BSC 



DISPLACEMENT IN NAME LIST 



/oioo 

*-* 
LI TABSSp2 
DIFF 

LI TABSS-2 
I FTOE 



XI 

7 ON 



CONSTANT WITH BJT 
LINK ADDR WORD 
GET FjRbT WORD JN NAME 
CHANGE NAME FROM F TO E 

SUBTRACTING DIFF 
RESTORE" THE MOP NAME 
R|TURN THRU LINK ADPR WD 
************************************************** 

* SUBROUTINE TO CHANGE U TO Y IN FIO CALLS 



************************************************** 



* 

* 

* 

* 

* 

TAGSR DC 
LD 
OR 

STO 
BSC 

* 

MOVEP DC 
MDX 
SLA 
MDX 
SLA 



SUBROUTINE 

.TAG, SYSTEM SUBR t NAME IN LIST BY 

MAKING LfFTMUST BIT ONE 



*««♦ 
L2 TABSS-2 
3 H800Q-Z 
L2 TABSS-2 
I TAGSR 



MOVE STRJNG'PUINTER 



LINK ADUR WORD 
GET AN ENTRY FROM TABLE 
TURN BIT IERO ON 
RESTORE'WPRD INTO TABLE 
RETURN THRU LINK ADPR WORD 



*** 

1 



NRM,*4 





LINK ADUR WORD 
MOVE STRING WQRp POINTER; 
A NO QP'FgR SKIPPING 
DECREMENT STMNT WDCNT 
A*NU QP FOR SKIPPING 



SEITE 



420 BSC } MQVEP RETURN T^KU LINK ADDR WQRD 

421 * 

422 * SUBR, MOVE SYMBOL TABLE POINTER 

423 MSTP DC *** LINK aDUR WORD 

424 LD 1 LD ID WURp JN 5YM TPL 

425 AND 3 MASK5-Z SAVE QN|„Y BJTS 3 AND 4 IF 

426 BSC Z SKIP JF NpT DIMENSIONED 

427 LD 3 CM3«Z MINUS THREE 

428 S 3 3 SET ACC TO .3 OP -6 

429 A 3 STP"Z ADD IN SYM TBL PTR ADDR 

430 STO 3 STP-Z STORE StP*STP»3,»6 HERE 

431 LDX U STP PUT POINTER IN XRl 

432 BSC J MSTP RlTURN THRU LINK ADPR WORD 

433 * 

434 D60 DC 32 A CUNSTANT FOR WDCNT 

435 PAPIN DC BUF INITIAL VALUE OF PAP 

436 PAP DC BUF PRINT AREA POINTER 

437 C120 DC 64 ANOTHER CONST FOR WDCNT 

438 Z DC CONSTANT jjERO 

439 ZERO EOU Z A PulNTfcR ApDR 

440 ONE DC 1 CONSTANT ONE 

441 TWO DC 2 CONSTANf TWO 

442 THREE DC 3 CONSTANT THREE 

443 FOUR DC 4 CONSTANT FOUR 

444 H0004 EQU FOUR HEX 4 PUR MASKING 

445 HQ7FF DC /Q7FF MASK TO SAVE BITS 5 THR'J: 1 

446 * 

447 H0100 DC /Q1QQ MASK TO SAVE BIT 7 

448 H8000 DC /800Q MASK TO FLIP BIT 

449 STP DC *«+ SYM.T, ROJNTER 

450 MASK2 DC /Q08Q ALS? » CONSTANT 

451 MASK3 DC /1BQQ MASK FOK BITS 3,4 

452 CM3 DC /FFFD CONST,? MJNUS THREE 

453 MASK5 DC /F800 FOR ExTKAgTJNG ST-ID 

454 MASK6 DC /Q7FC FOR ExTKAgTJNG NORM 

455 NRM DC *»»* STORED NORM 

456 STID DC *<•* STMf*jD 

457 FTEST DC /6000 SfMT.jD s FORMAT 

458 ENPID DC /1000 STMT»JD « END 

459 H1800 DC /1800 BITS 3 AND 4 MASK 

460 H1900 DC /1900 .CALL S UBSC. 

461 H1EO0 DC /1E0O THESE ARE DJFFRENCE 

462 H5BO0 DC /5BQ0 CODES FUR 

463 H0500 DC /050Q FINDING ENTRIES 

464 H0147 DC /0147 IN THE TABSS 

465 H0080 DC /Q08Q TAB(,E 

466 H0008 DC /00Q8 FOR MOVJNG PCNT 

467 H7800 DC /7800 BITS 1*2,3,4 MASK 

468 H1D00 DC /1DQQ CALL SUBJN 

469 H1600 DC /1600 CALL FlUAJ 

470 H1680 DC /1680 CALL FlUAF 

471 H5DO0 DC /5D00 SPEC BSC L 

472 H4000 DC /4000 EBC BLANK 

473 HD800 DC /D800 FORMAT TYPE CODE 

474 H4700 DC /47QQ .BSj L3 , CODE 

475 DFILE DC /F000 DEFINE FILE ID 

476 DATA DC /F8QQ-/FQQQ DaTa STMNT ID 

477 * 

478 * SYSTEM SUBR, TABLE 

479 TABSS DC /Q6Q4 FAOD QOUE OQ 8 



SEITE 



480 DC /4100 

481 DC /G6Q4 

482 DC /4127 

483 DC /Q68A 

484 DC /4080 

485 DC /Q68A 

486 DC /40A7 

487 DC /0653, 

488 DC /7A00 

489 DC /Q651 

490 DC /7A27 

491 DC /Q610 

492 DC /9940 

493 DC /Q610 

494 DC /9967 

495 DC /064C 

496 DC /400Q 

497 DC /G64C 

498 DC /49C0 

499 DC /068A 

500 DC /3580 

501 DC /068A 

502 DC /35A7 

503 DC /0688 

504 DC /2640 

505 DC /0688 

506 DC /2667 

507 DC /0612 

508 DC /5640 

509 DC /Q612 

510 DC /5667 

511 DC /06Q6 

512 DC /7240 

513 FAXIX DC /0606 

514 DC /7267 

515 DC /0626 

516 DC /7240 

517 DC /Q626 

518 DC /7267 

519 FARI DC /1418 

520 DC /1640 

521 FARIX DC /1418 

522 DC /1667 

523 FIAR DC /1424 

524 DC /1640 

525 FIARX DC /1424 

526 DC /1667 

527 AIFIX DC /Q918 

528 DC /99C0 

529 AFUT DC /Q64D 

530 DC /6063 

531 DC /0359 

532 DC /41D6 

533 DC /098A 

534 DC /35A7 

535 FIIF DC /1424 

536 DC /9180 

537 F IF DC /1418 

538 DC /9180 

539 FGOTO DC /141D 



FADDX 


oio 


FSUB 


018 


FSU8X 


020 


FMPY 


028 


FMPYX 


030 


FDI.V 


038 


FDIVX 


040 


FL,? 


048 


F M* 


050 


FSTQ 


058 


FSTOX 


060 


FS8R 


068 


FSBRx 


070 


FDVR 


078 


FDVRX 


080 


FAXJ 


088 


FAXIX 


090 


FIX! 


098 


OW* 


0A0 


MFAR 


0A8 


MFARX 


0B0 


MIAR 


088 


MJARX 


oco 


IF IX 


0C8 


FLOAT 


0D0 


C0MQO 


0D8 


l.STOx 


0E0 


M-I IF 


0E8 


MFU 


0F0 


MGOTg 


0F8 



SEITE 10 



540 




DC 


/68D6 






541 




DC 


/1310 


l,DFAg 


100 


542 




DC 


/6043 






543 




DC 


/228C 


STFAg 


108 


544 




DC 


/6043 






545 




DC 


/2208 


SBFAg 


110 


546 




DC 


/6043 






547 




DC 


/0494 


DVFAg 


118 


548 




DC 


/6043 






549 


URED 


DC 


/2464 


UKEy 


120 


550 




DC 


/51Q0 






551 




DC 


/2499 


UW.RT 


128 


552 




DC 


/98C0 






553 


UCOMP 


DC 


/24QD 


ycOMP 


130 


554 




DC 


/6517 






555 




DC 






138 


556 




DC 








557 


AERD 


DC 


/1464 


MRED 


140 


558 




DC 


/5100 






559 




DC 


/1499 


MWRT 


148 


560 




DC 


/98C0 






561 




DC 


/140D 


MQOMF 


150 


562 




DC 


/6517 






563 


APIO 


DC 


/1418 


MFIO 


158 


564 




DC 


/9580 






565 




DC 


/1425 


MIRAJ 


160 


566 




DC 


/6049 






567 


AIOAF 


DC 


/1425 


MIOAh 


168 


568 




DC 


/6046 






569 




DC 


/1425 


MlpFX 


170 


570 




DC 


/61A7 






571 




DC 


/1425 


M I p I x 


178 


572 




DC 


/6267 






573 




DC 


/1425 


filOF 


180 


574 




DC 


/6180 






575 


IOI 


DC 


/1425 


MI OX 


188 


576 




DC 


/6240 






577 


SUBSC 


DC 


/2290 


sUBSg 


190 


578 




DC 


/2883 






579 




DC 






198 


580 




DC 








581 


BCKSP 


DC 


/Q20P 


qcksh 


1A0 


582 




DC 


/2897 






583 


EOF 


DC 


/0558 


i°F 


1A8 


584 




DC 


/6000 






585 


REWND 


DC 


/1916 


REWNy 


1B0 


586 




DC 


/6544 






587 




DC 


/228D 


STOP 


IB® 


588 




DC 


/65C0 






589 




DC 


/1706 


PAUSfc 


1C0 


590 




DC 


/488P 






591 


RSJGN 


DC 


/2255 


SNR 


1C8 


592 




DC 


/9000 






593 




DC 


/2290 


SUBJN 


1D0 


594 




DC 


/2255 






595 


UFJO 


DC 


/2418 


UFly 


1D8 


596 




DC 


/9580 






597 




DC 


Z2425 


UI0A2 


IEO 


598 




DC 


/6049 






599 




DC 


Z2425 


UIOAF 


1E8 
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600 DC /6046 

601 DC Z2425 U.I.OKX 1F0 

602 DC /61A7 

603 DC /2^25 UIOJX 1F8 

604 DC Z6267 

605 DC /2425 UIQt 200 

606 DC /6180 

607 UIOI DC Z2425 UIQj 2Q8 

608 DC /6240 

609 MDFIO DC /J.41Q MDFJU 210 

610 DC /6256 

611 DC /14U MDRE-U 2J.8 

612 DC /9144 

613 DC /1412 MDWRT 220 

614 DC /6663 

615 DC /1410 MDCOM 228 

616 DC /3594 

617 DC RESEKVED TO KEEP CODE 

618 DC DifF CONSTANT 

619 * BETWEEN DISK JO 

6 20 * ROUTINES AND OTHERS 

621 * SHOULD NOT eE~U§EU FOR OTHER 

6?2 * NAME, IS CHANiiEp FOR SINGLE DEVICE, 

623 DC /1410 MDAT 238 

624 DC /1240 

625 DC /1410 MDAF 240 

626 DC /1180 

627 DC /1410 MDFX 248 

628 DC /69C0 

629 DC /1410 nOIX 250 

630 DC /99C0 

631 DC /1410 MDF 258 

632 DC /6000 

633 HDI DC /1410 MP I. 260 

634 DC /9000 

635 MDFND DC /1410 MDFNU 268 

636 DC Z6544 

637 DC 27 ° 

638 DC 

639 TABU DC /050C ECHRl 

640 DC /8649 

641 DC /060C FCHRj 

642 DC /B649 

643 DC /23A1 HPIN 

644 DC /7155 

645 DC /Q859 HOUE« 

646 DC /3142 

647 DC /14Q4 MAGT 

648 DC /78C0 

649 DC /1765 PRNTN 

650 DC /5805 

651 DC /Q5Q9 |BPRT 

652 DC /7663 

653 DC /1705 PAPTN 

654 DC /78D5 

655 DC /1705 PAPEB 

656 DC /7142 

657 DC /0305 CARPN 

658 DC /9H5 

659 EOTAB DC /0000 NOT USED 
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660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

660 

681 

682 

683 

684 

685 

666 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



DC 

TA8LM DC 
DC 

DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 
DC 

* 
********** 

* 
* 

L1041 LD 
S 

BSC 
MDX 
ID 

* 
* 

* 



/Q00Q 

TABU 4 
TABU 6 
TABU 8 
TABU 20 
TABU 10 
TABU 12 
TABU 4 
TABU 12 
TABU 14 
TABU 16 
TABU 18 
TABU 6 



SU8H NAM 

ADOKE§S 

ADDK6SS 

ADDKifS 

ADDRESS 

ADDRESS 

addmess 

ADDKESS 

address 

ADDKESS 
ADDHESS 
ADDKESS 



E GROUP ADDPS 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 
CONSTANT 
CONSTANT 

CONSTANT 
CONSTANT 
CONSTANT 
CQNSTANt 



**************************************** 



* 
* 
* 
* 
* 
* 
* 



LD 

A 

BSC 

MDX 



* 
* 
* 
* 



* 
* 
* 

* 
* 



AND 
BSC 



3 STP-Z 
L EQFST 

L2011 
1 



I.OAU ADDR OF SYM TBI ID 
SUB'AQDK OF SYM TBI END 
SKIP JF NOT END SYUBOL TBL 
BR JF END SYMBOL TBU 
EUSb U D IP WORD 



BSC L 

AND 
BSC 
MDX 



TEST JF CONSTANT 

EXTENDED PREO CONST MAY HAVE BITS: 
INI JD. WQRO fO'MAKl JT SIMILAR TO 
SUBPROQRAM NAMES 
U1045, Z BRANCH IF BIT IS ON 



3 MASK2-Z ELSfe §AVE ONLY BIT 8 

SKIP JF SUBPROGRAM NAME 
11043 BRANCH JF NOT 

TEST IF SUBPRUGRAM NAME JS THE 
NAME OF THE'CUMPILEP SUBPROGRAM 
ITSELF 

HAS /FFFF IN LAST WORD 
IN THAT CASE yQ NyT PRINT 



1 2 

3 1 



L1045 



LD 3RD WD OF ENTRY 

ADD 1 AND SEE IF ACC IS 

SKIP JF OlFF 

BRANCH IF SAME 



TEST JF ARJTH STMT FUNCT NAME 
I M THAT CAS| DO NgT PRINT 



1 

3 HQ10Q-Z 
L L1045,Z 



LD S>YM TBL ID HORD 

SAVE ONLY BIT 7 

BR If akith STMNT FUNC MAM 



GET NAME FROM SYMBOL TABLE 
MOVE NAME'TO PRINT AREA 



BSI L MNAME 



L1045 BSI 

MDX 



3 MSTP»Z 
L1041 



GO MOVE THE NAME 



INCK SYMBOL TBL POINTER 
LOOP TO CHECK NEXT 



SEITE 13 

7? q # SYMBOL TABLE ENTRY 

721 * 

722 12011 LDX 11 SQFS INjTlAUJZfc STRING POINTER 

723 # 

724 L2012 LD 1 EXTKACT AND STORE STMNT ID 

725 AND 3 MASK5-Z SAVfc BITS IHRU 4 

726 STO 3 ST10-Z KpR STMNT HPE HERE 
707 l D 1 EXTKACT AND STORE NORM 

728 AND 3 MASK6-Z SAVfc BUS 5 THRU 13 

729 STO 3 NRM-Z KEEK STMNT NORM HERE 

730 BSI 3 MQVEP.Z MOVfc POINTER 

731 * 

732 * TEST IF" END-STATEMENT 

733 L2021 LD 3 STID-Z GET'STMNT TYPE CODE 

734 S 3 ENDID.Z SUB END STMNT TYPE CODE 

735 BSC L L2041, •■ BR |F END 

736 * 

737 p 

738 * TEST TO FIND STATEMENTS THAT 

739 * CONSIST OF ONfc WOKD ONLY 

741 * LD 3 NRM*Z GET THE STMNT NORM 

742 BSC L L2Q12, - BR |F ONEnWD STMNT 

743 * 

7J5 * LD 3 STID-Z GE T STMNT TYPE CODE 

746 S 3 FTEST-Z SUB FQRMAT STMNT TYPE CDDE 

747 BSC L L2022, - BR JF FORMAT STMNT 

748 # 

749 * TEST IF LOADEK.QVfcRUAY SMT 

750 * IN A SUBPROGRAM 

751 * OR DEFlNEFILfc, DATA 

yll * LD 3 STID-Z GET STMNT TYPE CODE 

754 S 3 DFILE.Z SUB DEF FjLE TYPE CODE 

755 BSC L L2022, - BR |F DfcPjNE FILE STMNT 
ill S 3 DATA-Z SUB DATA STMNT TYPE COD* 
757 BSC L L2022, - BR |F DATA STMNT 

759 * LD 3 STIO'Z GET STMNT TYPE CODE 

760 S 3 HD800-Z SUB INT O/P FMT TYPE CODE 

761 BSC L L203X.Z BR |T STMNT l HB l D800 
76? LD L SQRF GET SUBRTN OR FCTN (NP rfD 

763 BSC L L2022,Z BR " IF LOADER OVERLAY STMNT 

764 MDX L2031 BR JF NgT 

765 * 

767 * MOVE POINTER TO NEXT STATEMENT 

769 L2022 LD 3 NRM-Z GET THE STMNT NORM 

770 BSC L L2012, - BR |F NORM COUNT ZERO 

771 BSI 3 MOVEP-Z MOVfc pO|NTER 

772 MDX L2022 LROH UNTIL STMNT NORM Z=RO 

773 * 

775 L2031 LD 1 LD J^TBL POINTER 

776 BSC - SKI** I F PACKED INST/NAM; 

777 MDX L2033 BR JF NOT 

778 AND 3 H78Q0^Z SAVfc BITS 1,2,3,4 

779 BSC L L2Q32, - BR JF NAME 
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780 * 

781 * CHANGE PACKED INSTRUCTION IF 

782 # NAME REFERS'TU DIMENSIONED 

783 * VARIABLE 

785 ID 1 LD SYM TBI POINTER 

786 BSI U GET5T GO «ET SYM TBL ENTRY 

787 AND 3 H18Q0-Z SAVfc BITS 3 AND 4 OF ID WD 

788 BSC u 12032, - B? K NOT DIMENSIONED 

790 * CHANGE INSTRUCTION CODE 

791 * FROM UDU'TO LDH ETC 

792 * WAS NOT DONE IN MACRO 1 BECAUSE 

793 * THE PHASE WAS SPACE CRITICAL 

794 * 

795 LD 1 LOAU PACKED INSTRUCTION 

796 OR 3 H4Q00*Z SET8JT 1 SO HEX DIGIT 

797 STO 1 ONE IS 4 6TR, R£»STQRE 

798 * 

799 * 

800 L2032 BSI 3 MOVEP-Z MOVE POSTER 

801 LD 3 NRM-Z QET'WQRD COUNT 

802 BSC L LZ03X.Z BR jF NORM NOT ZERO 

803 MDX L2012 BR JF NORM ZERO 

804 * 

805 * 

806 L2Q33 LD 1 LD SYM TBL POINTER 

807 SLA 1 LROK AT BJT 1 

808 BSC L L3011,* BR JF .CALL, 
609 * 

810 * TEST IF HARDW»lNSTR CODE 

811 * REFERS TO .SPEC BSC L, 

812 * IF SO, MOVE POINTER ONE WORD 

813 # EXTRA SPEC bSC L IS FOLLOWED 

814 * BY A DISPLACEMENT VALUE RATHER 

815 * THAN A NAME 

816 * _ „ 

817 LD 1 LD SYM TBL POINTER 

818 S 3 H5DO0-Z SEE IF SPEC BSC I 

819 H L2034, •■ BR IF SPEC BSC 

820 * 

822 LD 1 LD SYM TBL POINTER 

823 S 3 H5B00*Z SEE IF SPEC LD* L 

824 BSC L L2032,Z BR JF LDX Ll 

HI I THIS MOVE WILL EFFECT A DOUBLE MOVE 

828 L2034 BSI 3 MQVEP-Z MOVfc pOjNTER BY 1 

829 MDX L2032 BR BACK AND MOVE 2ND THE 

830 * 

831 * 

832 L2041 LDX Ll TABSS-EOTAB-2 TABLE LENGTH 

833 LD L CCWD PUT CQNT CARD WD INTO ACC 

834 SLA 11 PUf BJT-ij, \H SJGN 

835 BSC L EXIT,- BR JF STMT LIST NOT REQ 

836 L2042 MDX 1 2 ELSfc MOVE XfU BY 2 AND 

837 ' MDX L2044 BR TO L2044 

« -r u ^ 

83 9 * SKIP OCCURS AT END OF LIST 
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Itl I TEST IF HALF HUfcD LINE REMAINS 

842 * TO BE PRINTED 

844 * LD I PCNT GET PRINT COUNT 

8 45 BSC L EXIT. - BR jF PKINT COUNT ZERO 

846 SRA 1 ELSE DIVIDE BY TWO 

847 STO L WDCNT AND CAUL |T A WPCNT 

848 LD 3 PAPIN^Z GET THE STARTING PRJNT ADD 

849 STO L AREA PUT THIS ADDR IN AREA 

850 BSI L PRINT PRINT A LINE IF NOT 

851 BSC L EXIT EXIT THE PHASE 

852 * 

853 * PRINT ,TAGGEDi SYSTEM SUBROUTINE 

854 * NAMEb 

pec . 

856 L2044 LD LI EQTAB LD a TABLE ENTRY 

857 BSC - SKIP JF SyBR NAME TAGGED 

858 MDX L2042 BR JF NOT TO MOVE XR1 

859 MDX LI EQTAB.l SET TBL ENTRY ADDR-1 IN XR 

860 SLA NO UP FUR SKIPPING 

861 BSI L MNAME MOVE NAME TO- PRINT AREA 

862 MDX LI -EOTA8 1 RESTORE XR1 FOR TBL SEARCH 

863 SLA NO UP FUR SKIPPING 

864 MDX L2042 LOOP BACK AND MOVE XRl 

865 * 

866 * TWO-WORD SUBPKOGR CALL 

867 * OR SYSTEM'SUBHOgTlNE CALL ENCOUNT-RE 

668 * 

869 L3P11 LD 1 GET SyM TBL POINTER WP 

870 SRA 7 SAVfc ONLY BJTS THRU 8 

871 * 

872 BSC L 13051, - BR |F TWO WORD CALL 

874 * THIS IS A SYSTEMS SUBROUTINE CALL 

875 * 

876 * TEST IF LAST WORD IN STATEMENT 

877 ud 3 NRM-Z GET NORM FRO" ID WORD 

878 S 3 FOUR'Z REDUCE COUNT BY ONE UNIT 

879 BSC L L3Q12, BR IF LAST 

880 * 

881 * TEST IF ,CALL SUBJN, 

882 * TEST MUST BE MApE HERE SINCE ITS 

883 * FOLLOWING ARGUMENTS COULD BE 

884 * MISTAKEN FOR DIMENSIONED 

885 * VARIABLE NAMES, AT OCCASION 

886 * 

887 LD 1 GET SyM TBL POINTER WD 

888 S 3 H1D00-Z SEE IF jTfS A CALL SUBIM 

889 BSC L L3012, - BR JF .SUBlN, 
89Q * 

891 # 

892 * IF FOLLOWED BY A DIMENSIONED NAME, 

893 * INCREMENT" CALL CODE 

894 * CORRECTION DONE HfeRE BECAUSE 

895 * MACRO 1 PHASfc APPROACHING CRITICAL 

896 * SIZE 

897 * 

898 LD 1 1 L.D WD A* TER SYM TBL PNTR. 

899 BSC L L3012,- BR IF NUT FOLLOWED RY 





SEITE 


16 




900 


* 






NAME OK PACKED INSTRUCTED 


901 




AND 


3 


H78QQ-Z ELSE SAVE BJTS 1*2,3,4 


902 




BSC 


U 


L3Q12,Z BR if PACKED INSTR 


903 


* 








904 


* 






TEST IF NAME UlMENSjONED 


905 




UD 


1 


1 UD WD AFTER SYM TBL PNT^ 


906 




BSI 


U 


GETST GO UET NEXT ID WD 


907 




AND 


3 


H18QQ-Z SAVE BITS 3 AND 4 


906 




BSC 


U 


U3012, - BR JF NAME NOT DIMENSIONED 


909 


* 








910 


* 






NAME IS DJMENSlQNtD, 


911 


* 






CHANGE CALL CODE 


912 


* 








913 




ID 


1 


UOAU JD WQRD 


914 




A 


3 


H0080-Z TURN BIT 8 ON 


915 




STO 


1 


RE-bTgRfc THE ID WD 


916 
917 
918 


* 








* 
* 






TAG SYSTEMS SUBROUTINE NAME IN TA3LE 


919 


* 








920 


13012 


ID 


1 


UD SYM TBU POINTER WORD 


921 




SRA 




6 SAVt BITS' THRU 9 


922 




STO 




U3013 1 STORE THEM BEHIND 3C13 


923 


U3013 


UDX 


U2 


*.» PUT"THEbE BITS INTO XR2 


924 




BS! 


3 


TAGSR-Z AND GO TAG T"HE NAME 


925 


* 








926 


* 






TEST IF SYSTEM SUBROUTINE 


927 


* 






has speciau'akgument uist TO 


928 


* 






MOVE POINTER PAST THIS ARC UIST 


929 


* 








930 




ID 


1 


UD SYM TBU POINTER WORD 


931 




S 


3 


H160Q-Z COMKARE'TO FIOA J CODE 


932 




BSC 


L 


U3015, - BR IF CALU FIOA? 


933 


* 








934 




UD 


1 


UD 5YM TBU P°INTER WD 


935 




S 


3 


H1680-Z COMPARE TO FIOAF CODE 


936 




BSC 


U 


U3015, - BR JF CAUU FIOAF 


937 


• 








938 




UD 


1 


UD SYM TBU POINTER HP 


939 




S 


3 


HlDOQ-Z COMPARE Tq SUBIN CODE 


940 




BSC 


L 


U3041, - BK jF CAUU SUBJN 


941 


* 








942 




ID 


1 


UD SYM TBU POINTER WD 


943 




S 


3 


H1900-Z COMPARE Tg SUBSC CODE 


944 




BSC 


U 


HERE, * S'R'IF NOT ,CAUU SUBSC, 


945 




UD 


1 


UD bYM TBU POINTER WD 


946 




S 


3 


HlEOO-Z COMPARE DJFF CODE 


947 




BSC 




Z SKIP JF UIOAI 


948 




S 


3 


HQ080-Z COMPARE DlFF CODE 


949 




BSC 




Z SKIP IF UJOAF 


950 




s 


3 


HQ500-Z COMPARE DjFF CODE 


951 




BSC 




Z SKIP JF MpAJ 


952 




S 


3 


H0080-Z COMPARE DjFF CODE 


953 




BSC 


U 


U2032.Z BRANCH IF NONE OF ABOVE 


954 




MDX 




U3015 ELSb GO MOVE POINTER 


955 


* 








956 


* 






MOVE POINTER PAST ARGUM UIST 


957 


# 






OF ,CAUU SUBSC, 


958 


* 








959 


HERE 


BSI 


3 


MQVEP-Z MOVfc POINTER AT LEAST 4 
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960 BSI 3 MOVEP-Z WORDS THEN I N 

961 13042 BSI 3 MQVEP-Z GROUPS OF 2 UNTJL 8JT 

962 BSI 3 MOVEP-Z JS FOUND TO BE ZERO 

963 ud 10 1,1) A STMNIT SIRING WORD 

964 BSC L 12032, Z BR JF PAST A*G STRING 

965 MDX U3042 BR JF NOT 

966 * 

967 * 

96 8 * HOVE POINTER HAST TWO ARGUMENTS 

969 * 

970 L3015 BSI 3 MQVEP-Z MQVfc STRING POINTER 

971 " BSI 3 MOVEP-Z TWO WQRUS AND 

972 BSC I U2032 RETURN TO CALL PT 

973 * 

974 # MOVE POINTER PAST ARGUM LlIS 

975 U3041 SLA A Ng qP 

976 L 3016 BSI 3 MOVEP-Z GO MOVE STRING POINTER 

977 LD 1 LD THE STRING WORD 

978 S 3 ONE-Z CONST IIS ENDOFLIST IND! 

979 BSC L L3016,Z BR |F NOT EN" OF 

980 * ARtiUMENToLlST 

981 BSC L L2032 BR IF END OF ARGUM LIST 

982 * 

983 * TWO-WORD CALL ENCOUNTERED 

984 * IF CALL IS TO ARlTH STMT FUNCT, 

985 * CHANGE TO BSI L 

986 * 

987 L3051 LD 1 1 LD SECOND WD OF CALL 

988 BSI L GETST GO UET SYM TBL ENTRY 

989 AND 3 H050Q-Z SAVfc QNLY B]?S 5 AND 7 

990 BSC L L2032, BR" IF NOT AHJTH STMT FJNC 

991 * OR DUMMY VARIABLE NAME 

992 LD 3 H470Q-Z CODE FOR ,BSC Lt 

993 STO 1 REPLACE .CALL, WITH ,BSJ L 

994 BSC L L2032 GO MOVE POINTER 

995 * 

996 » PRINT HEADER JF NfcCESSARY 

997 * BUILD PRINT LINE 

998 * 

999 MNAME DC *«* LINK ADUR WORD 

1000 BSI L PBLNK GO HRjNj A BLANK LINE 

1001 BSI L HTEST GO UNPACK AND PRINT MSG 

1002 DC 9 MSG'WQRU COUNT 

1003 EBC .CALLED SUBPROGRAMS, MSG ITSELF 

1004 LDX L2 RWM*1 "S|T"XR2 TQ NEXT ADDR 

1005 STX 2 MNAME 2 REPLACE HTEST WITH NEXT AD 

1006 RWM BSI TQPAB GO SET UP TO PRJNT MSG 

1007 LD 11 LOAD SUBROUTINE NAME 

1008 BSI TOPA GO PUT CHAR IN BUF STRING 
10Q9 LD 1 1 LD SUBR NAME AGAIN 

1010 SLA 6 GET" 2ND CHAR OF NAMF" 

ion BSI TOPA PUT 2ND CHAR ON BUF STRING 

1012 LD 12 GET 2ND WORD OF NAMF. 

1013 RTE 16 SHIFT IT JNTO THE Q 

!0i4 LD 11 p OT FjRST WORD BACK IN ACC 

1015 SLT 12 SlT UP 3RD CHAR IN ACC 

1016 BSI TOPA POT 3RD CHAR ON BUF STRING 

1017 LD 12 GET 2ND WORD OF NAMF, 

1018 SLA 2 SET Up 4TH CHAR IN ACC 

1019 BSI TOPA POT 4TH CHAR ON BUF STRING 
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1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 

1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 

1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 



* 
* 



LD 

SLA 

BSI 

BSI 

BSI 



LD 

A 

STQ 

TEST 

S 

BSC 

ID 

STQ 

STQ 

ID 

STO 

BSI 

SLA 

STO 

BSI 

BSC 



* 

* 

* 

TOPAU DC 
STQ 

TOPAX LD 
STO 
MDX 
BSC 

* 

* 



TOPA 



DC 

AND 

BSC 



* 
* 



OR 
TOPA1 STO 
LD 
STO 
MDX 
T0PA2 LD 
MDX 



* 
TQPAB 



DC 

SLA 

BSI 

BSC 



1 2 
8 

TQPA 
TQPAB 
TQPAB 

INCREMENT 
PCNT 
3 HQ008-Z 
PCNT 



IF 
3 

I 
3 

3 



I 
i 



GET 2ND WgRD AGAIN 
SET UP bTH CHAR IN ACC 
PUT 5TH CHAR ON BUF STRING 
INSERT TWO EBC BLANKS 
AFTfcR SUBROUTINE NAME 



PRINT COUNT 
GET PRINT COUNT INTO 
ADD ONE UNIT TO IT 
RE»5TgRE SUM IN PCNT 



ACCi 



LINE FULL 

C120-Z 

MNAME, Z 

PAPIN-Z 

PAP-Z 

AREA 

D60<-<Z 

WDCNT 

PRINT 

16 

PCNT 

BLKPA 

M'^AME 



IS HRJNT COUNT 120 YET 
RETURN IF LINE NOT FULL 

ld Initial buf addr 

put it in print area pntr 

ALSu PUT JT IN AREA 

GET A WORD COUNT 

AND SET WDCNT TO IT 

PRINT A LJNE 

ZERU T^fc ACC 

ZERU PRINT COUNT 

GO RUT fcBC BLANKS If! BUFl 

RETURN THRU LINK ADDR 



SUBROUTINE 
CHAR IN A-REG 



TO PRINT AREA UNCHARGE 



* P * LINK ADUR WORD 

STOCH STOKE CHARACTER HERE 

STOCH LOAU THE MSG CHAR 

PAP PUT IT IN PRINT AREA PNTR 

PAP, I MOVE PRINT AREA POINTER 

TQPAU RETURN THRU LINK ADDR 



SUBROUTINE 

CONVERT CHAR IN A»RfcG INTQ 

EBC-CQDEi "THEN MOVE TQ PRJNT 



AREA 



* m if 

H3FQQ 
L TQPA2, 



LINK ADDR WORD 
SAVfc BITS 2 THRU 7 
BR ]F ACC IS ZERO 



NOTE 

IF OTHER SPECIAL CHARACTERS THAN 

BLANK ARE'EXPfcCtEU, TESTING SHOULD: 

BE HERE 

HCOQQ TURN BITS AND 1 Of! 

STOCH STOKE CHARACTER HERC 

TQPA MOVE LINK ADDR WORD 

TQPAU REp&TQRfc JT HERE 

TOPAX BR TO GfcT MSG CHAR 

H4000»Z PUT'AN EBC BLANK IN ACC 

TQPAl GO bTQRE IT 



16 

TOPA 
I TQPAB 



LINK ADDR WORD 
ZERU THE ACC 
BRANCH UP 
RETURN THRU LINK 



ADDR 
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1080 * CONSTANTS 

1081 PCNT DC *-* WHEKE PkINT COUNT IS 

1082 H3FO0 DC /3F00 MASK FON SAVING BITS 

1083 HCO00 DC /C0 MASK FOR qRJNQ IN BITS 

1084 STOCH DC *-* T|MH STORAGE FOR MSG CHAR 

1085 * 

1086 * SUBROUTINE 

1087 * TO PRINT BLANK L,lNE 

1088 * 

1089 PBUNK DC *-* LINK ADDR WQKD 

1090 LD 3 H4000-Z PUT AN EBC BLANK IN ACC 

1091 STO L BUF BLANK A WD IN BUF 
10<?2 STO L BUF + 1 BLANK ANOTHE« 

1093 LD 3 PAPIN-Z GET' ByF BfcGJN ADDR 

1094 STO L AREA PUT IT IN AREA 

l Q5 in 3 ONEwZ GET CONSTANT FOR WDCNT 

1096 STO L WDCNT SET WDCNT TO QN£ 

1097 BSI L PRINT GO HRjNT THE BLANK LINE 

1098 BSC I PBLNK GO PRjNT BLANK LINE 

1099 * 

1100 * PUT EBC BLANKS IN BUF STRjNG 

1101 BLKPA DC *** LINK ADUR WORD 

1102 LD 3 H4000-Z PUT EBC 8LAN* IN ACC 

1103 LDX 13 WDCNT PUT WD COUNT INTO XR3 

1104 BLKP STO L3 B'jF-1 BLANK A BgF WQRp 

1105 MDX 3 -1 DECHEMENT XR3 BY 1 

1106 MDX BLKP LOOK TO BLANK ANOTHER 

1107 LDX L3 Z RESTORE XR3 TO PT VAL 

1108 BSC I BLKPA R|TURN THRU LINK ADDR 

1109 * 

1110 * EXIT ROUTINE 

1111 * 

1112 EXIT SLA 

1113 * 

1114 * 

1115 BSI L ROLRX CALL DOwN PHASE 25 
J u6 DC 25 NEXT PHASE NUMBER 
1U7 BSS OVERL-**320*3 pHASE-2* PATCH AREA 
1118 END NEQ 



